home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Prograph Classic 2.6.1 / Examples / Super_System_Classes / Scrollbar ƒ / source ƒ / scroll_proc.c next >
Encoding:
C/C++ Source or Header  |  1994-10-25  |  4.0 KB  |  151 lines  |  [TEXT/KAHL]
  1. /*change this flag to 0 for the compiler, 1 for the interpreter */
  2. #define _INTERPRETER 1
  3.  
  4. #include "Controls.h"
  5. #include "X_constants.h"
  6. #include "X_data_types.h"
  7. #include "X_prim_structs.h"
  8. #include "X_mac_structs.h"
  9. #include "X_sys_structs.h"
  10. #include "X_struct_ids.h"
  11. #include "X_prototypes.h"
  12. #include "X_macros.h"
  13. #include "scroll_proc.h"
  14.  
  15. /* This file contains a call back for the control manager, two XPRIMs and the code    */
  16. /* to install them in the interpreter environment.    It is for use with the Scroll    */
  17. /* Bar example class, but it also demonstrates how to use C code to do callbacks    */
  18. /* with Prograph.                                                                    */
  19.  
  20. /* List of Routines:
  21.         PGScrollAction     - This is the call back that is used by the control manager.
  22.         scroll-proc        - Outputs the address of PGScrollAction.
  23.         inst-to-addr    - Outputs the address of the instance that is input.
  24. */
  25.     
  26. #if _INTERPRETER
  27.     ProcPtr * ct;
  28. #endif
  29.  
  30.  
  31. /* PGScrollAction - This is a callback routine is used by the control manager to     */
  32. /*                    handle clicks in the various parts of the control.    If the user    */
  33. /*                    clicks in the UpButton or DownButton, this routine uses the     */
  34. /*                    value of the line pixel attribute of the Prograph instance        */
  35. /*                    bound to this control record.  If the user clicks in the UpPage    */
  36. /*                    DownPage part of the control, then this routine uses the value    */
  37. /*                    of the page pixel attribute of the Prograph instance bound to     */
  38. /*                    this control record.                                            */
  39.  
  40.  
  41. pascal void PGScrollAction
  42. ( 
  43. ControlHandle    control,                    /* effect control */
  44. Int2            part                         /* control part */
  45. )
  46. {
  47. Int4             value;                        /* control's value */
  48. Int2            min;
  49. Int2            max;
  50. C_Scroll_20_Bar    *inst;
  51. C_integer        *line;
  52. C_integer        *page;
  53.  
  54.     value = GetCtlValue( control );
  55.     min = GetCtlMin( control );
  56.     max = GetCtlMax( control );
  57.     
  58.     inst = (Handle)GetCRefCon( control );
  59.     
  60.     line = (*inst)->line_pix;
  61.     page = (*inst)->page_pix;
  62.     
  63.     switch( part )
  64.     {
  65.         case inUpButton:
  66.             value -= (*line)->value;
  67.             break;
  68.         case inDownButton:
  69.             value += (*line)->value;
  70.             break;
  71.         case inPageUp:
  72.             value -= (*page)->value;
  73.             break;
  74.         case inPageDown:
  75.             value += (*page)->value;
  76.             break;
  77.         default:
  78.             return;
  79.     }
  80.     
  81.     if( value < min )
  82.         value = min;
  83.     if( value > max )
  84.         value = max;
  85.  
  86.     SetCtlValue( control, (Int2)value );
  87. }
  88.  
  89. /* scroll-proc    -    This routine takes a part code as input.  If the part code        */
  90. /*                    indicates that the user clicked in the thumb of the control        */
  91. /*                    then ZERO is returned.  Otherwise, if the user clicked in any    */
  92. /*                    other part of the control, this XPRIM returns the address of    */
  93. /*                    the callback routine PGScrollAction.  This is necessitated        */
  94. /*                    by the structure of the control manager.  A callback used by    */
  95. /*                    the control manager when the user clicks in the thumb of a        */
  96. /*                    control does not have any parameters. A callback used when the    */
  97. /*                    user clicks in some other part of the control has two            */
  98. /*                    parameters.  Thus, when the user clicks in the thumb of the     */
  99. /*                    control, this XPRIM passes out 0 so that TrackControl will take    */
  100. /*                    the default action.                                                */
  101.  
  102. Nat2 U_scroll_2D_proc
  103. (
  104. C_integer        *cSPart,            /* Part Code */
  105. C_integer        **cSProc            /* Address of scroll proc */
  106. )
  107. {
  108.  
  109. #if _INTERPRETER
  110. {
  111.     Nat2 inarity, outarity;
  112.     
  113.     GETARITY( inarity, outarity);
  114.     
  115.     if( inarity != 1 && outarity != 1 )
  116.         return PRIMERR_ARITY;
  117. }
  118. #endif 
  119.         
  120.     if( (*cSPart)->value != 0 && (*cSPart)->value != inThumb )
  121.         *cSProc = MakeC_integer( (Int4)(&PGScrollAction) );
  122.     else 
  123.         *cSProc = MakeC_integer( (Int4)0 );
  124.         
  125.     return PCF_TRUE;
  126. }
  127.  
  128. #if _INTERPRETER
  129.  
  130. /* main loads primitives into prograph interpreter's primitive table */
  131.  
  132. void main( table )
  133.  
  134. ProcPtr * table;                /* common table */
  135.  
  136. {
  137.     asm 
  138.     { 
  139.         move.l a4, -(sp)         /* move A4 on to the stack */
  140.         move.l a0, a4            /* move address of code resource to A4 */
  141.     }
  142.     
  143.     ct = table;                    /* set up common table for shared functions */
  144.     
  145.     AddPrimitive( 1, 0x0101, PF_USER, 0, &U_scroll_2D_proc );
  146.  
  147.     asm { move.l (sp)+, a4 }    /* move saved value back into A4 */
  148. }
  149.  
  150. #endif
  151.